home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 224 / 224.d81 / b.saddam darts (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  158 lines
  1. 10 rem bulleyes-t.brantner
  2. 11 rem ** adapted for freedom iroq  **
  3. 12 rem ** situation. hope some of   **
  4. 13 rem ** you have a 64 over there! **
  5. 14 rem ** be back safely soon!      **
  6. 15 rem -------------------------------
  7. 17 print"[147]":poke53280,0:poke53281,0:poke53272,22:gosub20000
  8. 20 poke53280,0:poke53281,0:printchr$(8)chr$(142)"[147]"
  9. 30 fora=832to1022:readz:pokea,z:next
  10. 40 fora=49152to49259:readz:pokea,z:next
  11. 50 dimse%(13,18),qt(3,14),sc(1)
  12. 60 fora=0to13:forz=0to18:readse%(a,z):next:next
  13. 70 fora=0to3:forz=0to3:readqt(a,z):qt(a,4+z)=qt(a,z)*2:qt(a,8+z)=qt(a,z)*3
  14. 80 next:qt(a,12)=25:qt(a,13)=50:next
  15. 90 tc=646:sp=2040:v=53248:s1=54272:j2=56320:a=rnd(-ti)
  16. 100 pokev+16,0:pokev+28,7:pokev+37,11:pokev+38,12
  17. 110 sc(0)=301:sc(1)=301
  18. 120 pl=0:pokev+21,0:poke53265,11:gosub420:poke53265,27
  19. 130 dn=2:cs=sc(pl):pokev+1,0:pokev+3,0:pokev+5,0:pokev+21,7
  20. 140 cy=4:ifplthencx=3:gosub400:print"   ":printtab(cx)"   "
  21. 150 poketc,6+pl*7:cx=3+pl*31:gosub400:print"[161][194][187][157][157][157][188][194][162]"
  22. 160 gosub270:cy=13-dn:cx=3+pl*31:a=pv:gosub390:cs=cs-pv
  23. 170 cy=15:ifcs<0thencx=2+pl*31:gosub400:print"broke":goto210
  24. 180 cx=3+pl*31:a=cs:gosub390:ifcs=0then230
  25. 190 dn=dn-1:ifdn>-1then160
  26. 200 sc(pl)=cs
  27. 210 fora=1to1500:next:pl=pl+1:ifpl<2then130
  28. 220 goto120
  29. 230 cy=23:cx=11:gosub400:poketc,(peek(tc)and7)+1
  30. 240 print"winner: player "mid$("onetwo",1+pl*3,3):j9=peek(214)
  31. 250 printtab(8)"press fire to play again";:ifpeek(j2)and16then230
  32. 255 gosub21000
  33. 260 goto110
  34. 270 pokesp+dn,13:pokev+39+dn,6+pl*7
  35. 280 poke2,173:poke3,141:poke4,rnd(1)*2:poke5,rnd(1)*2:poke6,dn
  36. 290 sys49152:xp=peek(2):yp=peek(3)
  37. 300 gosub410:pokes1+5,153:pokes1+4,16:pokes1+4,17
  38. 310 fora=0to23:pokesp+dn,13+a/11:pokev+1+dn*2,yp-a:pokes1+1,140-a
  39. 320 forz=1to10:next:next
  40. 330 gosub410:pokes1+5,3:pokes1+1,10:pokes1+4,16:pokes1+4,17:yp=yp-23
  41. 340 pv=0:x%=(xp-98)/4:y%=(yp-85)/4
  42. 350 ifx%<0orx%>37ory%<0ory%>27thenreturn
  43. 360 a=0:ifx%>18thena=1:x%=37-x%
  44. 370 ify%>13thena=a+2:y%=27-y%
  45. 380 z=se%(y%,x%):pv=qt(a,z):return
  46. 390 gosub400:print""right$(" "+str$(a),3):return
  47. 400 poke214,cy-1:print:printtab(cx);:return
  48. 410 fora=s1tos1+23:pokea,0:next:pokes1+24,15:return
  49. 420 gosub880:goto640:print"[147]       [188] [146][208][165] [146] [161] [146]   [146] [203] [146][183]   [146][183] [167][146][170][161] [146][183]"
  50. 430 print"        [129] [146][183][161] [146] [161] [146]   [146]  [183][208][161][190] [146][183] [183][208][161] [146][183]"
  51. 440 print"       [158][188][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190] [162][162][146][190][162][162][146][190][162][162][146][190]"
  52. 450 print"       [155][182]          [175][175][175][175]          [146][181]"
  53. 460 print"       [182]      [172][162][146]   12   [155][162][187]      [146][181]"
  54. 470 print"       [182]    [172][146][190]1  [158][162][162][162][162][162][162]  8[155][188][187]    [146][181]"
  55. 480 print"       [182]   [146][190]   [153][162][162][146][187]    [172][153][162][146][162]   [155][188]   [146][181]"
  56. 490 print" [182][184][184][184][184][184][194]  [146][190]  [158][162][153][162][146][162] [188][146]    [190] [146][162][153][162][158][146][162]  [155][188]  [194][146][184][184][184][184][184][181]"
  57. 500 print" [182] one [155][194] [146][190]5 [158][190][146][190][162]  [162][158][146][172][162][162][187][162]  [162][158][146][188][188][146] 4[155][161] [194][146] two [155][181]"
  58. 510 print" [182][198][198][198][198][198][194][172][146]  [158][161][146][165]  [188][172][190][146][161]  [161][188][146][187][190]  [158][167][161]  [155] [194][146][198][198][198][198][198][181]"
  59. 520 print" [182]     [194][146][190]  [158][170][146]  [172][172][146] [187] [146]   [172][146] [158][187][146][187]  [180][146]  [155][161][194][146]     [181]"
  60. 530 print" [182]     [194][146]  [153][161][165] [188][146][172][162]  [188][190][188][190]  [162][187][190] [167][153][146][161]  [155][194][146]     [181]"
  61. 540 print " [182]     [194][146]11[153][161][165]  [161]   [146][161][161][146][161][161]   [146][161]  [167][153][146][161]9 [155][194][146]     [181]"
  62. 550 print" [182]     [194][146]  [153][161][165] [172][146][188][162][146]  [172][187][172][187]  [162][146][190][187] [167][153][146][161]  [155][194][146]     [181]"
  63. 560 print" [182][197][197][197][197][197][194][146][187]  [158][170][146]  [188][188][146] [190] [146]   [188][146] [158][190][146][190]  [180][146]  [155][172][194][146][197][197][197][197][197][181]"
  64. 570 print" [182]     [194][188][146]  [158][161][146][165]  [172][188][187][146][161]  [161][172][146][190][187]  [158][167][161]  [155][190][194][146]     [181]"
  65. 580 print" [182][185][185][185][185][185][194] [146][187]2 [158][187][146][187][162]  [146][162][158][188][162][162][146][190][162]  [146][162][158][172][172][146] 7[155][172] [194][146][185][185][185][185][185][181]"
  66. 590 print"       [182]  [146][187]  [158][162][153][146][162][162] [172][146]    [187] [162][153][146][162][158][162][146]  [155][172]  [146][181]"
  67. 600 print"       [182]   [146][187]   [153][162][146][162][190]    [188][153][162][162][146]   [155][172]   [146][181]"
  68. 610 print"       [182]    [188][146][187]6  [158][162][162][162][162][162][162][146]  3[155][172][190]    [146][181]"
  69. 620 print"       [182]      [188][146][162]   10   [155][162][190]      [146][181]"
  70. 630 print"       [182]          [183][183][183][183]          [146][181]"
  71. 640 cy=10:cx=3:a=sc(0):gosub390:cx=34:a=sc(1):goto390
  72. 650 data0,48,0,0,48,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,236,0,0,116
  73. 660 data0,0,236,0,0,116,0,0,252,0,3,187,0,14,186,192,58,186,176,58,186
  74. 670 data176,58,186,176,14,254,192,3,51,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0
  75. 680 data 0,0,0,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,116,0,3,187,0,14
  76. 690 data186,192,58,186,176,10,254,128,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0
  77. 700 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,48,0,0,48,0,0
  78. 710 data184,0,63,255,240,0,184,0,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0
  79. 720 data0,0,0,0,0,0,0,0,0,0,0,0,165,6,10,168,165,2,153,0,208,165,3,153,1
  80. 730 data208,173,0,220,170,41,16,208,1,96,138,74,74,41,3,168,136,192,2,144
  81. 740 data2,164,4,24,165,2,121,106,192,201,91,176,7,152,73,1,168,76,55,192
  82. 750 data133,2,132,4,138,41,3,168,136,192,2,144,2,164,5,24,165,3,121,106
  83. 760 data192,201,97,144,4,201,230,144,7,152,73,1,168,76,91,192,133,3,132,5
  84. 770 data162,8,160,0,200,208,253,202,208,250,76,0,192,1,255,14,14,14,14,14
  85. 780 data14,14,14,14,14,14,14,14,4,4,4,4,4,4,14,14,14,14,14,14,14,14,14,14
  86. 790 data14,5,5,0,0,0,0,0,0,14,14,14,14,14,14,14,14,14,5,5,1,1,1,0,0,0,0,0
  87. 800 data14,14,14,14,14,14,14,5,5,1,1,1,1,1,0,0,0,0,0,14,14,14,14,14,6,6,1
  88. 810 data1,1,1,1,1,1,1,0,0,0,0,14,14,14,14,6,6,2,1,1,1,1,1,1,1,1,0,0,0,0
  89. 820 data14,14,14,6,6,2,2,2,2,1,1,1,1,9,9,9,8,8,8,14,14,6,2,2,2,2,2,2,2,1
  90. 830 data9,9,9,1,1,0,0,0,14,14,6,2,2,2,2,2,2,2,2,9,1,1,1,1,0,0,0,14,6,2,2
  91. 840 data2,2,2,2,2,10,10,2,2,1,1,1,1,0,0,14,6,2,2,2,2,2,2,10,10,2,2,2,2,1
  92. 850 data1,1,0,0,7,3,3,3,3,3,2,2,10,2,2,2,2,2,2,2,1,1,0,7,3,3,3,3,3,3,11,3
  93. 860 data3,3,2,2,2,2,2,2,12,12,7,3,3,3,3,3,3,11,3,3,3,3,3,3,3,3,12,12,13
  94. 870 data12,1,5,11,12,8,4,9,10,6,2,11,10,3,7,9
  95. 880 rem ** kill hussein screen **
  96. 5885 print"[147]       [158][161][129][176][195][195][195][150][195] kill hussei";
  97. 5890 print"n C[129]CCC[174][158][146][161]              [188][162][162]";
  98. 5895 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]  ";
  99. 5900 print"            [155][182]          [175][175]";
  100. 5905 print"[175][175]          [146][181]            ";
  101. 5910 print"  [182]      [172][162][146]   12   [155][162][187]    ";
  102. 5915 print"  [146][181]              [182]    [172][146][190]1";
  103. 5920 print"   [155][175]F[175]F[175][175] 8[155][188][187]    [146][181]       ";
  104. 5925 print"       [182]   [146][190]   [185]FD      [191]";
  105. 5930 print"   [188]   [146][181]        [182][184][184][184][184][184]B  ";
  106. 5935 print"[146][190]   [151][191][146]          [155][191]   [188]  B[146][184][184]";
  107. 5940 print"[184][184][184][181]  [182] one [155]B [146][190]5  [151][191][146]  [175][185][